var A,B: TMtxInt; c: boolean; begin CreateIt(A,B); try A.SetIt(2,2,prInt32, [1,2, 2,4]); // 2x2, int matrix B.SetIt(2,2,prInt32, [1,2, 2,4]); // 2x2, real matrix c := A.Equal(B); // Check for an exact match finally FreeIt(A,B); end; end;